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tae ti Sree ERs PaiSeils PARC Sacre yoesOo «= Paget, 


SBEGIN RMSODELET,000,RMSRMS,<DISPATCH FOR DELETE OPERATION> 


SERRA A RARE AERA AA AEAE AA AAAAAAAAAAAEARAAEARAAEAREARTERERAAEKEREKEREEAE EEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

D ee an CORPORATION, MAYNARD, MASSACHUSETTS. 
1S SOFT ED UNDER A LICENSE AND MAY BE USED AND sor ace 
LY E a. F SUCH LICENSE AND WITH THE 
4 OPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
PIE E PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
HER TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


*® ® 
** ® 
‘® ® 
:® ® 
ab ® 
*® ® 
** x 
:@ ® 
*® oe 
‘® ® 
:® TRANSFERRED. * 
** ® 
* * 
*® ® 
*® ® 
:* ® 
:® ® 
:® ® 
** a 
*® ® 
** * 


I 
L 
H 
N 
N 
0 
T 


vm Pre 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ARR RRRRRAAASARALALALSLELE SELES EERE EERE ERE S ESE EERE EEE ERE R CESSES CSS EECCA 
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SoSEP-1986 foicaies ERMSreRCIRMSODELET MaR:1 = “29° (3) 


Facility: rms32 


Abstract: 
this routine is the highest level control 
routine to perform the $delete function. 


ANA AAA ANNI 
OOONA US Winh OOo 
+ 
+ 


Fix broken branch. 


Environment: 
: star processor running starlet exec. 

° rt : Author: L F LAVERDURE, Creation Date: 8-NOV-1977 
00 4¢ : Modified By: 
00 44 ; VO3-005 ywT0141 Jim Teague 11-Nov-1983 
00 43 Change IFBSV_RUM to IFBSV_ONLY_RU 
9000 23 : v03-004 KPLOO01 Peter Lieberwirth 20-Jun-1983 
4 $3 ; Change some references to JNLFLG to JNLFLG2. 
0000 50 : v03-003 KBT0451 Keith B. Thompson 66-Jan-1983 
8008 5 3 Fix broken branch 
0000 § ; V03-002 JWHO153 Jeffrey W. Horn 8-Dec-1982 
0000 54; Don't allow SDELETE if not in recovery unit and RU only 
0000 55; specified for file. 

0 56 ; 

0 57; 

8 28 ; Reorganize psects 

0 60 i v02-005 cDS0005 C Saether 11-Dec-1981 

0 6¢ : 

0 65 ; 

0 64 ; 

0 65 


oooooooooo 
Soooooooooo 


v03-001 KBT0176 Keith B. Thompsof: 23-Aug-1982 


append 
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H 9 
DELETE OPERATION 1 meh 1: 
: RMS .SRCIJRMSODELET.MAR; 1 


“SEP=1984 16: 
-SBTTL DECLARATIONS 


d 


ae 


1 
4 


: Include Files: 


Macros: 
SIFBDEF 
SRMSDEF 
t Equated Symbols: 


Own Storage: 


COCOCO COCO OOOO C8 NIN NNO OO 
NOUS WN OOONOAOUE WI OUOOnN 
e@ete 
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RMS eT DISPATCH FOR DELETE OPERATION 16-SEP-1984 01:14:17 VAX/VMS Macro v04-00 Page 4 
betta RMSSDELETE = COMMON SoELete SETUP AND DI gS obe 9; 4:45 CRMS.SRCIRMSODELET.MAR;1 . (4) 
8 -SBTTL RMSSDELETE = COMMON SDELETE SETUP AND DISPATCH ROUTINE 
1 34+ 
38 : RMSSDELETE 
: 95 : RMSSDELETE = this routine performs common rab function setup followed 
4 38 : by dispatch to organization-dependent Sdelete code 
8 3 ; Calling sequence: 
1 9 : entered from exec as a result of user's calling sys$delete 
: 3 (e.g., by using the $delete macro) 
° ! § : Input Parameters: 
999 198 ; ap user's argument List addr 
8° 199 : Implicit Inputs: 
fi 193 : the contents of the rab and related irab and ifab. 
090 i : Output Parameters: 
44 18 : ri destroyed 
4 13 : r0 status code 
900 116 > Implicit Outputs: 
0000 118 : verious fields of the rab are filled in to reflect 
0000 119; the status of the Sdelete operation. (see rms functional 
8600 | 9 ; spec for a complete List.) 
2093 : : the irab is similarly deleted. 
+ : : : a completion ast is queued if specified in the user arglist. 
0900 ! § : Completion Codes: 
4 ! 8 : standard rms (see functional spec for List). 
° ! ? : Side Effects: 
8 1 § ; none 
las 3 
it 134 ;-- 
00 135 
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RM ET DISPA FOR DELETE OPERATIO 16-SEP- 
vitae tt RMSSDELETE - COMMON SDEL ETUP AND DI $ “SEP- 


RMS .SRCIRMSODELET.MAR; 1 


TCH DE ATION 1984 1:16:17 
ELE CO ETE S 1984 16:26:45 
: 137 SENTRY RMSSDELETE 
1 : STSTPT DEL 
6 1 SRABSET FAC=IFBS$V_DEL,CFLG=1 
: 179 show me : 
OF OOAO CA E1 A 16 BBC #1FBSV_ONLY_RU, IFBSB. JNLFLG(R10) 
O5 yd CA 89 £0 128 BBS #IFBSVIR By Tr aga. JNLFLG2¢ RFO) »,10$ 
1 144 RMSERR NRU 
1 RMSSTS NRU,RO 
a IF DF RMS$_NRU 
00008700 0016 v IF EQ anaes NRUG&*XFFO0> 
a8 MOVZBL #<RMS$_NRUG*XFF>,RO 
50 87FC BF 3¢ or MOVZWL #<RMS$_NRUG&*XFFFF>,RO 
18 .ENDC 
O18 SMEXIT 
FFE2" 31 OO1B 145 BRW RMSEXRMS 
OIE 146 
1E 14 
OOrE 148 ; 
O1E 149 : dispatch to org-dependent code 
SSE ae 
14 6A 3E €0 $8 138 10$: BBS #IFBSV_DAP.(R10) .NIDEL : branch 
0 15 CASE  TYPE=B> SRC=IFBSB ORGCASE (RID) 
0 154 DISPLIST=<RMSERRIOP, DELETE 
02" 00 23 AA 8F 0 AbbicB CASEB IF B$B_ORGCASE(R10) ,#0,S*#<< 
027 .IRP EP <RMSERRIOP DE DELETEZ RMSDELETE3> 
00 f - SIGNED_WO WORD 
FFD9" 00 g “SIGNED_WORD § RMSERRIOP-30000$ 
0009" G 9 .SIGNED_WORD  DELETE2-300008 
FFD9" 0 B .SIGNED_WORD  RMSDELETE3-30000$ 
02D 30001$: 
02D 
02D 155 
FFDO' 31 9 p 136 BRW RMSERRORG > return 
6 9 138 DELETE2: 
00000000'EF 17 030 139 JMP RMSDELETE2 : Out of 
00000000'eF 17 00 6 161 NTDEL: JMP NTSDELETE : delete 
be 168 END 


AX/VMS Macr 


v04-00 Page 


3 do common setu 


p 
returns to user on error 


10$ 3; branch if not RU only 
: branch if in RU 


if network operation 


Sy iMEDELETEDS 


to user with error 


range delete 
record via remote fal 
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Symbol table SEP-1984 16 


AX/VMS Macro v04-00 
RMS.SRCIRMSODELET.MAR; 1 


ref, 


EXE RD NOWRT NOVEC BYTE 


$$.PSECT EP = 90 
SSRMSTEST = A 
SSRMS_PBUGCHK = 8 
SSRMS_TBUGCHK s 
SSRMS E = 4 
beLe Te R 01 
IFBSB_JNLFLG = A 
IFBSB_JINLFLG2 = A 
1FBSB_ORGCA s ¢ 
IF BSV_DAP = 
IFBSV_DEL = 
IFBSV_ONLY_RU = 
IFBSV_RUP = 
NTSDECETE eeeeeeee =X (01 
NTDEL 00000036 R 01 
PIOSA_TRACE eeeeneee =X 4 
RMSDECETE eeeeeeee YX 1 
RMSDELETE aeeeeene =X 01 
RMSERRIOP Reekkeee N 01 
RMSERRORG Reekeene x 01 
RMSEXRMS eeeeeeee X01 
RMSRSET eeeeeeee Xo 01 
RMSSDELETE = FFFFFFFE RG 01 
RMS$_NRU = 000187FC 
TPTSC_DELETE eeeeeeee =X 01 

pecs enw ees ae ee wes + 

; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 <( 0.) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS 0000003C ( 60.) 83 ( 1.) PIC USR CON REL  GBL NOSHR 
SABSS 00000000 <¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

Puceesensenessuesnessceuad 
; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 5 00:00: 93 0:00:00.65 
Command processing 1 $ :00:00.75 : 9 ° 
Pass 1 1 :00:04.09 713.6 
Symbol table sort ae :00: 9. 
Pass 2 4 ‘ :00:03.0 
Symbol table output -05 :00: 3° 


Psect synopsis output 1 °: :00. : 3: 
Cross-reference output 8 :00:00. :00: 
Assembler run totals 42 0:00:06. 0:00: 


OWWCoO 


8 
ihe yorking set Limit was 1350 pages. 
21017 bytes (42 pages) of virtual memory were used to buffer the intermediate code. 
There were 20 pages of symbol table space al ecaree to hold 406 non-local ane local symbols. 
1g source lines were read in Pass 1, producing 15 object records in Pass 2. 
17 pages of virtual memory were used to define 16 macros. 
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vMS 4- Pp 
VAX-11 Macro Run Statistics - TRMSO he eae ase 


/VMS 
S.SRCIRMSODELET.MAR; 1 (5) 


eseeee wee enn ene sn enaasenmanan > 


H ; Macro library statistics ! 


ee meme meee auaenawsaddese} 


Macro Library name Macros defined 
“B33 S8bunse: ESvs. ay ey nF | : 
SDUA SYSLIB3StARLET. MLB;2 3 
TOTALS (all Libraries) 1 


513 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSODELET/OBJ=OBJ$:RMSODELET MSRC$:RMSODELET/UPDATE=(ENHS:RMSODELET) +EXECML$/LIS+LIB$:RMS/LIB 
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